Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue66/XMLXSLT/MSXML/Unit1.dfm

Text File | 2000-12-13 | 8.2 KB | 304 lines

object Form1: TForm1
  Left = 202
  Top = 147
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MS XML'
  ClientHeight = 543
  ClientWidth = 588
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 8
    Width = 585
    Height = 529
    ActivePage = TabSheet1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Converting'
      object Label1: TLabel
        Left = 8
        Top = 24
        Width = 205
        Height = 13
        Caption = 'DBDEMOS->Employee converted into XML'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object btnConvert: TButton
        Left = 459
        Top = 12
        Width = 109
        Height = 25
        Caption = 'Convert to XML'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = btnConvertClick
      end
      object mXML: TMemo
        Left = 8
        Top = 40
        Width = 561
        Height = 441
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Web Browser'
      ImageIndex = 2
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 168
        Height = 13
        Caption = 'Converted XML in a TWebBrowser:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object wbXML: TWebBrowser
        Left = 8
        Top = 32
        Width = 561
        Height = 465
        TabOrder = 0
        ControlData = {
          4C000000FB3900000F3000000000000000000000000000000000000000000000
          000000004C000000000000000000000001000000E0D057007335CF11AE690800
          2B2E126208000000000000004C0000000114020000000000C000000000000046
          8000000000000000000000000000000000000000000000000000000000000000
          00000000000000000100000000000000000000000000000000000000}
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Patterns'
      ImageIndex = 4
      object lblCount: TLabel
        Left = 480
        Top = 216
        Width = 75
        Height = 13
        Caption = '0 items returned'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 37
        Height = 13
        Caption = 'Pattern:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 8
        Top = 224
        Width = 38
        Height = 13
        Caption = 'Results:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object edtPattern: TEdit
        Left = 8
        Top = 32
        Width = 553
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'employees/employee/*'
      end
      object btnApply: TButton
        Left = 480
        Top = 0
        Width = 75
        Height = 25
        Caption = 'Apply'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = btnApplyClick
      end
      object rgPattern: TRadioGroup
        Left = 8
        Top = 56
        Width = 553
        Height = 153
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Items.Strings = (
          '/'
          './/employee'
          'employees'
          'employees/employee[0]'
          'employees/employee[end()]'
          'employees/employee[emp_salary > 30000 $and$ emp_salary < 35000]'

            'employees/employee[emp_salary > 30000 $and$ emp_salary < 35000 $' +
            'and$ emp_salary[@currency="UKP"]]'
          'employees/employee[emp_salary > 50000]/emp_lastname')
        ParentFont = False
        TabOrder = 2
        OnClick = rgPatternClick
      end
      object mResults: TMemo
        Left = 8
        Top = 248
        Width = 553
        Height = 233
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 3
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Transform'
      ImageIndex = 3
      object Transform: TButton
        Left = 8
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Transform'
        TabOrder = 0
        OnClick = TransformClick
      end
      object memoTransform: TMemo
        Left = 8
        Top = 296
        Width = 553
        Height = 185
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object Panel1: TPanel
        Left = 8
        Top = 40
        Width = 553
        Height = 249
        Caption = 'Panel1'
        TabOrder = 2
        object wbMSXML: TWebBrowser
          Left = 1
          Top = 1
          Width = 551
          Height = 247
          Align = alClient
          TabOrder = 0
          ControlData = {
            4C000000FB3900000F3000000000000000000000000000000000000000000000
            000000004C000000000000000000000001000000E0D057007335CF11AE690800
            2B2E126208000000000000004C0000000114020000000000C000000000000046
            8000000000000000000000000000000000000000000000000000000000000000
            00000000000000000100000000000000000000000000000000000000}
        end
      end
    end
  end
  object dsEmployee: TDataSource
    DataSet = tblEmployee
    Left = 256
    Top = 8
  end
  object tblEmployee: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'employee.db'
    Left = 312
    Top = 8
    object tblEmployeeEmpNo: TIntegerField
      CustomConstraint = 'Value > 0'
      ConstraintErrorMessage = 'EmpNo cannot be 0 or negative'
      FieldName = 'EmpNo'
      DisplayFormat = '0'
      MaxValue = 9999
      MinValue = 1
    end
    object tblEmployeeLastName: TStringField
      FieldName = 'LastName'
    end
    object tblEmployeeFirstName: TStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object tblEmployeePhoneExt: TStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
    object tblEmployeeHireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object tblEmployeeSalary: TFloatField
      CustomConstraint = 'X > 4499'
      ConstraintErrorMessage = 'Minimum Salary is $4,500.00'
      FieldName = 'Salary'
      currency = True
    end
  end
end